www.gusucode.com > 地方成人教育中心整站源代码 1 > 地方成人教育中心整站源代码 1.0/manage/chkuser.asp

    <%
Dim Server_v1,Server_v2 
Server_v1 = Request.ServerVariables("HTTP_REFERER") 
Server_v2 = Request.ServerVariables("SERVER_NAME") 
If Mid(Server_v1,8,Len(Server_v2))<>Server_v2 Then         
response.write "<script>alert('不允许跨站提交');location.href='login.asp';</script>" 
End If
if session("usr")<>"" then
else
response.Write("<script>alert(""请先登录或连接超时。"");parent.location.href=""login.asp"";</script>")
response.end
end if
%>